User's Choice Windows CD/User's Choice Windows CD (CMS Software)(1993).iso/misc1/amistuff.zip/SETSTY.ZIP/SETSTYLE.SMM

INI File | 1990-11-30 | 3KB | 338 lines

[ver]
    4
[sty]

[files]
[prn]
    Epson 9 pin
[lang]
    1
[desc]





    659989506
    1
    659988544
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
[docopts]
    5
    0
[tag]
    Body Text
    2
    [fnt]
        Tms Rmn
        160
        0
        49152
    [algn]
        225
        1
        0
        0
        0
    [spc]
        17
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        2
        2
        20
        20
        1
    [spec]
        0
        0

        0
        1
        0
        0
        1
        0
        0
    [nfmt]
        280
        1
        3
        .
        ,
        $
[tag]
    footer
    3
    [fnt]
        Tms Rmn
        200
        0
        49152
    [algn]
        225
        1
        0
        0
        0
    [spc]
        17
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        2
        2
        20
        20
        1
    [spec]
        0
        0

        0
        1
        0
        0
        1
        0
        0
    [nfmt]
        280
        1
        3
        .
        ,
        $
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        1080
        360
        1
        1080
        720
        4
        1
        0
        1
        8
        4
        1
        1080
        11520
        14
        1
        359
        1
        721
        1
        1084
        1
        1446
        1
        1792
        1
        2155
        1
        2517
        1
        2880
        1
        3242
        1
        3605
        1
        3967
        1
        4323
        1
        4683
        1
        5043
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        1080
        1
        1
        3
        1
        5
        0
        0
    [frmlay]
        1080
        12240
        1
        360
        0
        1
        0
        0
        2
        1
        0
        1
        1
        0
        1
        360
        12240
        3
        1
        365
        2
        6120
        3
        11162
    [txt]
<+B>

<+B>

<+B>    <:da<*!><* >>        Date Created:  <:da<*$><* >>

<+B>    By Charlie Pappas    Page - <:P11,1,>    Date Last revised:  <:da<*%><* >>

<+B>

>
    [frght]
    [lyfrm]
        1
        13248
        0
        15480
        12240
        15840
        1
        1
        3
        1
        5
        0
        0
    [frmlay]
        15840
        12240
        1
        720
        0
        1
        15480
        720
        2
        1
        0
        1
        1
        0
        1
        720
        11520
        0
    [txt]
@footer@
>
[elay]
[l1]
    0
[pg]
    1
    14 0 12 1025 16384 0 0 65535 65535 Standard    0 0 0    0 0 0 0 0 0 0 65535 0 0 0 0 0 0
[edoc]
function stestyle()

' This macro finds specific text within the document and sets each
occurence of the text to a specified style.


text = query$("Enter Text to Find:")

stylename = query$("Enter Style Name In proper case:")

while (1)

go = replace("" "" "" text "")

    if go <<>> 1 then

        break

    endif

    SetStyle(stylename)

wend

Message("Done")

end function

>
[macsum] 1
stestyle 0 0 4 0
[macse]
14 stestyle
0 1 "Enter Text to Find:"
13
8 1
0 1 "Enter Style Name In proper case:"
13
8 2
5 1
11 00000220
2 488 1 "" "" "" "{1}" ""
13
8 3
6 3
5 1
18 1
11 00000194
10 00000220
0 289 "{2}"
10 00000098
0 3 "Done"
6 0
15
9
00002330